set memref to the member of sprite the spriteNum of me
set castLibNum to the castLibNum of memref
set the toggleMember of me to member (the memberNum of member memref + 1) of castLib castLibNum
set the buttonNum of me to the spriteNum of me - (the firstSprite of me - 1)
getTheChoice(me)
end
on getTheChoice me
set chosenOne to getAt(the clickChoices of gClueData, the questionNum of me)
case chosenOne of
#a:
set vNumber to 1
#b:
set vNumber to 2
#c:
set vNumber to 3
#d:
set vNumber to 4
end case
if vNumber = the buttonNum of me then
SetToggleon(me)
end if
end
on SetToggleon me
set the member of sprite the spriteNum of me to member the toggleMember of me
end
on getPropertyDescriptionList
set p_list to [#questionNum: [#comment: "Question number for this button:", #format: #integer, #range: [#min: 1, #max: 21], #default: 1], #firstSprite: [#comment: "First sprite of series:", #format: #integer, #range: [7, 8, 9, 10], #default: 7]]
return p_list
end
on getBehaviorDescription
return "Restores the choices previously made, if any, based on parameters for the sprite and contents of clickChoices list in gClueData. Toggle member MUST follow the initial member in the cast."